home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / wrl____2.p2s < prev    next >
Encoding:
Text File  |  1994-05-10  |  3.0 KB  |  112 lines
  1. #######################################################################
  2. # OBJECTIVE: LINE IN RECORD
  3. #
  4. # Description:  Open the wave player,line in and MONITOR OFF
  5. #               load new file, record, seek, play, save, close .
  6. #
  7. #  NOTE: Ensure an audio source is connected to the line in jack
  8. #        of the audio card, otherwise it will be a blank record.
  9. #######################################################################
  10.  
  11. ############################################
  12. #
  13. #   OPEN THE DIGITAL AUDIO PLAYER
  14. #   WAIT FOR SUCCESSFUL OPEN
  15. #
  16. ############################################
  17.  
  18. open waveaudio00 alias wave1 notify
  19. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  20. @WAIT_NOTIFY 1 30000
  21. ###############################################
  22. #
  23. #  ENABLE TYPE LINE IN
  24. #  SET MONITOR INPUT OFF
  25. #
  26. ###############################################
  27.  
  28. CONNECTION wave1 QUERY TYPE WAVE STREAM ALIAS MPAmpMixer WAIT
  29. CONNECTOR WAVE1 ENABLE TYPE LINE IN NOTIFY
  30. SET MPAmpMixer MONITOR OFF WAIT
  31.  
  32. ############################################
  33. #
  34. #   LOAD A NEW FILE TO BE RECORDED
  35. #
  36. ############################################
  37.  
  38. load wave1 new notify
  39. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  40. @WAIT_NOTIFY 2 30000
  41.  
  42. ############################################
  43. #
  44. #   SET THE DIGITAL AUDIO PLAYER
  45. #   TIME FORMAT - MILLISECONDS
  46. #   BITS PER SAMPLE - 8 BITS
  47. #   SAMPLES PER SEC - 22 KHz
  48. #   CHANNELS - STEREO
  49. #   FORMAT TAG - MULAW
  50. #
  51. ############################################
  52.  
  53. set wave1 time format milliseconds wait
  54. status wave1 time format wait
  55. =milliseconds
  56. set wave1 bitspersample 8 wait
  57. status wave1 bitspersample wait
  58. =8
  59. set wave1 samplespersec 22050 wait
  60. status wave1 samplespersec wait
  61. =22050
  62. set wave1 channels 2 wait
  63. status wave1 channels wait
  64. =2
  65. set wave1 format tag MULAW wait
  66. status wave1 format tag wait
  67. =MULAW
  68.  
  69. ############################################
  70. #
  71. #   RECORD THE NEW WAVE FILE
  72. #
  73. ############################################
  74. @REM ***************************************************************
  75. @REM Ensure an audio source is connected to the line in jack of the
  76. @REM audio card, otherwise it will be a blank record.
  77. @REM ***************************************************************
  78.  
  79. record wave1 from 0 to 10000 notify
  80. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #3
  81. @WAIT_NOTIFY 3 20000
  82.  
  83. ############################################
  84. #
  85. #   SEEK TO 5 SECOND
  86. #   PLAY THE NEW RECORDED FILE
  87. #   SAVE THE NEW RECORDED FILE
  88. #
  89. ############################################
  90.  
  91. seek wave1 to 5 wait
  92. status wave1 position wait
  93. =5
  94. play wave1 notify
  95. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #4
  96. @WAIT_NOTIFY 4 45000
  97. save wave1 delete.wav notify
  98. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #5
  99. @WAIT_NOTIFY 5 45000
  100.  
  101. ############################################
  102. #
  103. #   CLOSE THE DIGITAL AUDIO PLAYER AND
  104. #   EXPECT A SUCCESSFUL CLOSE
  105. #
  106. ############################################
  107.  
  108. close wave1 notify
  109. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #6
  110. @WAIT_NOTIFY 6 30000
  111.  
  112.